 VB ʵֹڵҳѧԺ缼 ͼͼ ϵͳ ָ  칫 ý嶯 վӪ ֤ ҳ 
 web  Ϸ QQ 
      վ     

ǰλã  򿪷  VB   VB ʵֹڵ 
 VB ʵֹڵ
ڣ200767 ߣ 鿴:[  С] 

                       

   VB ʵֹڵ
   人 
  ǰУܹ VB 
  ʵֵǰڡָڵأǶڹڣһരڵĳУпжӴڣκһڵĲӦȫĴڣظóһھͿظóȫڣȴʵ֣£ 
  CuteFTP ͼ1ʱصǰָڣֻصǰĴڣ CuteFTP 
  ڻûأʹﲻسأôҪβʵֹڵأ
  1˼·
  жҪصĴǸڣӴڣӴڣͨ API  GetParent ȡøڵľǸڣҪͨ API 
   EnumWindows ȡϵͳдھͨ API  IsWindowVisible 
  йˣȻȡÿڵĸڵľǰȡõдھбȽϣͬʾôĳڵӴڡ
  2룺
  Form1.frm ļ
  Option EXPlicit
  Dim i As Integer עͣʱ
  Private Sub Command1_Click()עͣʾ
      If Command1.Caption = "" Then
          If Val(Text1.Text) = 0 Then Exit Sub עͣΪ 0 һССĴ
          GetRelatingWin Val(Text1.Text) עͣȡùڵȫ
          For i = 0 To UBound(RelatingHwnd)
              ShowWindow RelatingHwnd(i), SW_HIDE עͣȡùڵȫز
          Next
          Command1.Caption = "ʾ"
      Else
          For i = 0 To UBound(RelatingHwnd)
             ShowWindow RelatingHwnd(i), SW_SHOW עͣעͣȡùڵȫʾ
          Next
          Command1.Caption = ""
      End If
  End Sub

  Module1.bas ļ
  Option Explicit
  Dim AllhWnd() As Long עͣȡõȫڵľ
  Dim m As Long עͣʱ
  Dim TempHwnd As Long עͣʱ

  Public RelatingHwnd() As Long עͣйڵľ

  Private Declare Function GetParent Lib "user32" (ByVal hWnd As Long) As Long 
  עͣжָڵĸ
  Private Declare Function EnumWindows Lib "user32" _
          (ByVal lpEnumFunc As Any, _
           ByVal lParam As Long) As Long עͣöٴбеиڣͱдڣ
  Private Declare Function IsWindowVisible Lib "user32" _
          (ByVal hWnd As Long) As Long עͣжϴǷ
  Public Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal 
  nCmdShow As Long) As Long עͣƴڵĿɼ
  Public Const SW_HIDE = 0 עͣش
  Public Const SW_SHOW = 5 עͣõǰĴСλʾһڣͬʱ״̬
      
  Private Function EnumProc(ByVal app_hwnd As Long, ByVal lParam As Long) As 
  Boolean עͣȫھ
      If IsWindowVisible(app_hwnd) <> 0 Then עͣжϸôǷ,˵
          If GetParent(app_hwnd) = RelatingHwnd(0) Then
              m = m + 1
              ReDim Preserve RelatingHwnd(m)
              RelatingHwnd(m) = app_hwnd
          End If
      End If
      EnumProc = True עͣѭ
  End Function

  עͣԶȡָڵйĺ
  Public Function GetRelatingWin(ByVal hWnd As Long)
      ReDim RelatingHwnd(0)
      m = 0
      RelatingHwnd(m) = hWnd
      TempHwnd = GetParent(hWnd) עͣȡָڵĸڵľ
      If TempHwnd <> 0 Then
          m = m + 1
          ReDim Preserve RelatingHwnd(m)
          RelatingHwnd(m) = TempHwnd
      End If
      
      EnumWindows AddressOf EnumProc, 0
  End Function

  ͨ򣬾Ϳʵֶһȫˣжٸͬʱʾ VB6.0Win98 ͨʲôɵ 
  www.d1vb.com һۡ 

  [1] [2] һҳ 
  Ʊҳַͱ⣬͸QQ/Msnĺһ

   VB ʵֹڵ £
   VB ʵֹڵ
   VB ʵֹڵ 
  һƪ: Visual Basic ԴļĶʹü
  һƪ:VFPVBӦóм깦
  رվرֹתصר¿תأעԭʼ
  .°Ȩԭʼ.ڱվתµĸ˺վǱʾл⡣վת
  صаȨϵ༭Ա,ǾԸ. תעԴhttp://www.hackhome.com
ƷƼ
ȵTOP10
  VB+Accessͼϵͳ 
  VBʱͱܵ 
  ؼС洰С仯仯 
  VBѧ±ܼӴ 
  VBʹDirectXļ̳ 
  VBʹEXCEL 
  VBݿԴ60ʵ 
  180VBͼνԴʵ 
  API޸עģ 
  VB쳬Ի˵ 
  ͨſؼMSCommʹ 
  WINDOWSϢ˵ 
  16תʮ, 16תɶƵ 
  vsprintӡʵ 
  webbrowser 2ղأ 
  VB6DataGridʵͨõӱ 
  FindWindow 
  VB̳ ڶ£ؼѧϰ 
  VB6.0ͼ 
  VB֮·ý 
رƼ
  ǳVB.Net Windows Form 
  ׹Ʊ˰ʼ 
  VisualBasic 6еĺִ 
  Զȡû½ƣٽ֤ 
  APIָĿ¼ļ 
  VBݿԴ60ʵ 
  VBIEԶ尴ť 
  VBMS OfficeCOM 
  Visual Basicװ 
  WebComputingADOܽᱨ 
  vsprintӡʵ 
  VBʵһ򵥵ESMTPͻ 
  webbrowser 2ղأ 
  SetForegroundWindow 
  API޸עģ 
  VB쳬Ի˵ 
  WINDOWSϢ˵ 
  ؼС洰С仯仯 
  VBʱͱܵ 
 | () | Ȩ |  | Ϣ Copyright 2003-2007  All Rights Reserved.  
  ICP05018371 43 
